home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpsecure.zip / TEST.PAS < prev   
Pascal/Delphi Source File  |  1992-03-11  |  1KB  |  53 lines
  1. (* TO RUN:  RUN 1 TIME WITH PARAMSTRING OF "/SCOOBYDOO"
  2.             RUN MANY TIMES WITH NO PARAMSTRING
  3.  
  4.             EXPERIMENT!
  5.  
  6.   Feel free to change the password or any code you want (keep the original around
  7.   for screw ups).
  8.   This code may be freely used and abused to the programmers liking.
  9.  
  10.   Jason J. Weaver 03/09/92
  11. *)
  12.  
  13.  
  14. program test;
  15.  
  16. uses Secure;
  17.  
  18. var Security : TSecurity;
  19.  
  20. {---UPPER--------------------------------------------------------------------}
  21. Function Upper(Strn:String):String;
  22.   Var  I : Byte;
  23.        S : String;
  24.   begin
  25.   S := '';
  26.   For I := 1 to Length(Strn) do
  27.     S := S + UpCase(Strn[I]);
  28.   Upper := S;
  29.   end;
  30.  
  31.  
  32. begin
  33.   With Security do
  34.     begin
  35.     init('test.exe');                            { INITALIZE AND SECURE THIS PROGRAM }
  36.     if Upper(ParamStr(1)) = '/SCOOBYDOO'         { ONLY ALLOW SETUP ON PASSWORD }
  37.       then Setup(0,5);                           { PASSWORD DETECTED, SO RUN SETUP, ALLOWING
  38.                                                    6 ACCESSES TO THE PROGRAM }
  39.     if Not ValidUser
  40.       then begin
  41.            Writeln('Access denied: ',ErrorStr(ErrorCode));
  42.            end
  43.       else begin
  44.            Writeln('Access granted');
  45.            end;
  46.  
  47.     if ErrorCode <> 0
  48.       then Writeln('Run: TEST /SCOOBYDOO');       { GIVE SERIOUS HINT HOW TO
  49.                                                     RESET THE COUNT }
  50.     Done;
  51.     end;
  52.  
  53. end.